home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
SWDOS12
/
CLOSE.ASM
< prev
next >
Wrap
Assembly Source File
|
1994-07-28
|
738b
|
23 lines
;******************************************************************
;* CLOSE.ASM *
;* Source file for SoftWeyr enhanced DOS toolbox *
;* version 1.0 *
;* Copyright (c) by SoftWeyr,1994 *
;******************************************************************
Model TPascal
Locals
.Data
EXTRN DosError :word
.Code
Public CloseHandle
CLoseHandle Proc Far Handle:Word
MOV BX,Handle
MOV AH,3EH
INT 21h
JC @@Error
XOR AX,AX
@@Error: MOV DOSError,AX
RET
ENdP
END